(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    125225,       2620]
NotebookOptionsPosition[    121124,       2483]
NotebookOutlinePosition[    121468,       2498]
CellTagsIndexPosition[    121425,       2495]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox["\:0418\:043c\:0438\:0442\:0430\:0446\:0438\:043e\:043d\:043d\:043e\
\:0435 \:043c\:043e\:0434\:0435\:043b\:0438\:0440\:043e\:0432\:0430\:043d\
\:0438\:0435",
  FontSize->36,
  FontWeight->"Bold"],
 StyleBox["\n",
  FontSize->16,
  FontWeight->"Bold"],
 StyleBox["\:0426\:0435\:043b\:044c:",
  FontSize->16,
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 StyleBox[" \:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0438\:0442\:044c \
\:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\:044c \:0442\
\:043e\:0433\:043e, \:0447\:0442\:043e \:0441\:0438\:0441\:0442\:0435\:043c\
\:0430 \:0441\:0430\:043c\:043e\:043b\:0435\:0442-\:0430\:0432\:0442\:043e\
\:043f\:0438\:043b\:043e\:0442 \:0442\:0430\:043d\:0433\:0430\:0436\:0430 \
\:0416\:041e\:0421 \:0441 \:0430\:0441\:0442\:0430\:0442\:0438\:0447\:0435\
\:0441\:043a\:0438\:043c \:0437\:0430\:043a\:043e\:043d\:043e\:043c \:0443\
\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f \:0441 \:0440\:0430\
\:0441\:0441\:0447\:0438\:0442\:0430\:043d\:043d\:044b\:043c\:0438 \:0444\
\:0438\:043a\:0441\:0438\:0440\:043e\:0432\:0430\:043d\:043d\:044b\:043c\:0438\
 \:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:043c\
\:0438 \:0447\:0438\:0441\:043b\:0430\:043c\:0438 \:043d\:0430 \:0434\:0430\
\:043d\:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\
\:043b\:0435\:0442\:0430 \:043d\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\
\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0442\:044c \
\:0442\:0440\:0435\:0431\:0443\:0435\:043c\:044b\:043c \:0445\:0430\:0440\
\:0430\:043a\:0442\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0430\:043c \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0430 \:0438\:0437-\:0437\:0430 \:043d\
\:0435\:0442\:043e\:0447\:043d\:043e\:0441\:0442\:0438 \:043e\:043f\:0440\
\:0435\:0434\:0435\:043b\:0435\:043d\:0438\:044f \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:043e\:0432 \:043b\:0438\:043d\
\:0435\:0439\:043d\:043e\:0439 \:043c\:043e\:0434\:0435\:043b\:0438 (",
  FontSize->16,
  FontWeight->"Bold"],
 "\[PlusMinus]",
 StyleBox["10%) \:0438 \:0440\:0430\:0441\:0441\:0447\:0438\:0442\:0430\:0442\
\:044c \:043f\:0440\:0438 \:044d\:0442\:043e\:043c \:043d\:0430\:0438\:0431\
\:043e\:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\
\:0435 \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f \:0438 \:043f\:0435\:0440\:0435\
\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435\
.",
  FontSize->16,
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.501559687074664*^9, 3.5015597873360405`*^9}, {
  3.5015598552273593`*^9, 3.5015598561477613`*^9}, {3.5015600233176546`*^9, 
  3.5015600652973285`*^9}, {3.501560154903886*^9, 3.501560209457182*^9}, {
  3.5015603751138725`*^9, 3.501560398716714*^9}, {3.5015604603212223`*^9, 
  3.501560482395261*^9}, {3.501560517146923*^9, 3.5015605231229334`*^9}, {
  3.501560587816247*^9, 3.501560587816247*^9}, {3.5016713012068377`*^9, 
  3.50167131016635*^9}, {3.5016763315785584`*^9, 3.501676358810116*^9}}],

Cell[TextData[StyleBox["\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\
\:043d\:0442\:044b \:043b\:0438\:043d\:0435\:0439\:043d\:043e\:0439 \:043c\
\:043e\:0434\:0435\:043b\:0438 \:0441\:0430\:043c\:043e\:043b\:0435\:0442\
\:0430:",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.501561045380651*^9, 3.501561105081956*^9}}],

Cell[BoxData[{
 FormBox[
  RowBox[{
   RowBox[{"c1", "=", "0.88"}], ";"}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"c2", "=", "0.404"}], ";"}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"c3", "=", "7.028"}], ";"}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"c4", "=", "0.987"}], ";"}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"c5", "=", "0.251"}], ";"}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"c6", "=", "2.640"}], ";"}], TraditionalForm]}], "Input",
 CellChangeTimes->{{3.5128126066345057`*^9, 3.5128126458407483`*^9}}],

Cell[TextData[StyleBox["\:0420\:0430\:0441\:0441\:0447\:0435\:0442 \:043f\
\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445 \:0447\
\:0438\:0441\:0435\:043b \:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\
\:0442\:0430:",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.5015612086505375`*^9, 3.501561245031002*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"OmegaA", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"c1", "*", "c4"}], "+", "c2"}], "]"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:0421\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:0430\:044f", " ",
      "\:0447\:0430\:0441\:0442\:043e\:0442\:0430", " ", 
     "\:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\:0440\:0438\:043e\
\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e", " ", 
     "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
     "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.501676851102274*^9, 3.5016768731875367`*^9}}],

Cell[BoxData["3.4617914437470088`"], "Output",
 CellChangeTimes->{3.5011601993504534`*^9, 3.501162176871561*^9, 
  3.501171774566518*^9, 3.501173829558057*^9, 3.501174464111351*^9, 
  3.5011772006678734`*^9, 3.501177443838782*^9, 3.5012664578736296`*^9, 
  3.5012672784295626`*^9, 3.5013059837890444`*^9, 3.5013482544511075`*^9, 
  3.5013506723584037`*^9, 3.5013547619193134`*^9, 3.501678835295763*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"TA", "=", 
   RowBox[{"1", "/", "OmegaA", " ", 
    RowBox[{"(*", 
     RowBox[{
     "\:041f\:043e\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f", " ", 
      "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", 
      "\:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\:0440\:0438\
\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e", " ", 
      "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
      "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}]}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.501676960801548*^9, 3.5016769847849197`*^9}}],

Cell[BoxData["0.2888677773487157`"], "Output",
 CellChangeTimes->{3.5011601993694544`*^9, 3.5011621768915625`*^9, 
  3.501171774585519*^9, 3.5011738295750575`*^9, 3.5011744641323524`*^9, 
  3.5011772006818743`*^9, 3.501177443857783*^9, 3.5012664578926306`*^9, 
  3.501267278448564*^9, 3.5013059838060455`*^9, 3.501348255493167*^9, 
  3.501350673986497*^9, 3.5013547619393144`*^9, 3.5016788353177643`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"Tv", "=", 
   RowBox[{"1", "/", "c4", " ", 
    RowBox[{"(*", 
     RowBox[{
     "\:041f\:043e\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f", " ", 
      "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", 
      "\:0444\:043e\:0440\:0441\:0438\:0440\:0443\:044e\:0449\:0435\:0433\
\:043e", " ", "\:0437\:0432\:0435\:043d\:0430"}], "*)"}]}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.50167691398387*^9, 3.5016769319778996`*^9}}],

Cell[BoxData["0.8333333333333334`"], "Output",
 CellChangeTimes->{3.501160199389456*^9, 3.501162176911564*^9, 
  3.50117177460452*^9, 3.501173829594059*^9, 3.5011744641553535`*^9, 
  3.5011772006958747`*^9, 3.5011774438767843`*^9, 3.501266457913632*^9, 
  3.5012672784695654`*^9, 3.5013059838250465`*^9, 3.50134825642422*^9, 
  3.501350675214567*^9, 3.501354761958316*^9, 3.5016788353397655`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"Kc", "=", 
   RowBox[{"c3", "*", 
    RowBox[{"c4", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"c1", "*", "c4"}], "+", "c2"}], ")"}]}]}]}], 
  TraditionalForm]], "Input"],

Cell[BoxData["0.8811748998664887`"], "Output",
 CellChangeTimes->{3.5011601994094567`*^9, 3.5011621769345646`*^9, 
  3.501171774623521*^9, 3.50117382961306*^9, 3.501174464177355*^9, 
  3.5011772007088757`*^9, 3.5011774438957853`*^9, 3.501266457931633*^9, 
  3.5012672784895663`*^9, 3.501305983847048*^9, 3.501348257317271*^9, 
  3.5013506765376425`*^9, 3.501354761977317*^9, 3.501678835361767*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"ash", "=", 
   RowBox[{"2", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c1", "+", "c5", "-", "c4"}], ")"}], "/", "c3"}]}]}], 
  TraditionalForm]], "Input"],

Cell[BoxData[
 RowBox[{"-", "0.0181818181818182`"}]], "Output",
 CellChangeTimes->{3.5011601994294577`*^9, 3.501162176958566*^9, 
  3.5011717746425223`*^9, 3.501173829633061*^9, 3.5011744641983557`*^9, 
  3.5011772007238765`*^9, 3.5011774439157863`*^9, 3.501266457950634*^9, 
  3.5012672785085673`*^9, 3.501305983869049*^9, 3.5013482581493187`*^9, 
  3.5013506777697134`*^9, 3.5013547619953175`*^9, 3.501678835383768*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"bsh", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c1", "+", "c4", "+", "c5"}], ")"}], "^", "2"}], "-", 
      RowBox[{"4", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"c1", "*", "c4"}], "+", "c2"}], ")"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"c3", "^", "2"}], ")"}]}]}], TraditionalForm]], "Input"],

Cell[BoxData[
 RowBox[{"-", "0.5495041322314049`"}]], "Output",
 CellChangeTimes->{3.5011601994504595`*^9, 3.501162176982568*^9, 
  3.5011717746615233`*^9, 3.501173829652062*^9, 3.5011744642213573`*^9, 
  3.501177200739877*^9, 3.501177443935787*^9, 3.501266457968635*^9, 
  3.5012672785275683`*^9, 3.50130598389205*^9, 3.5013482590813723`*^9, 
  3.501350678982783*^9, 3.501354762013319*^9, 3.5016788354067693`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"mu", "=", 
   RowBox[{"4", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "ash"}], "/", "2"}], "+", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"ash", "^", "2"}], ")"}], "/", "4"}], "-", "bsh"}], "]"}]}],
      " ", ")"}], 
    RowBox[{"(*", 
     RowBox[{
     "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435\
", " ", "\:0447\:0438\:0441\:043b\:043e", " ", 
      "\:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430", " ", 
      "\:043f\:043e", " ", "\:0441\:0438\:0433\:043d\:0430\:043b\:0443", " ", 
      "\:0443\:0433\:043b\:043e\:0432\:043e\:0439", " ", 
      "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", 
      "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}]}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.5016771761708665`*^9, 3.5016771981851254`*^9}, {
  3.512812798099457*^9, 3.512812805654889*^9}}],

Cell[BoxData["0.7504321104681859`"], "Output",
 CellChangeTimes->{3.5011601995494647`*^9, 3.5011621770035686`*^9, 
  3.5011717746815243`*^9, 3.5011738296710634`*^9, 3.501174464244359*^9, 
  3.501177200754878*^9, 3.5011774439557886`*^9, 3.501266457986636*^9, 
  3.50126727854657*^9, 3.5013059839150515`*^9, 3.5013482602544394`*^9, 
  3.5013506818129444`*^9, 3.50135476203332*^9, 3.50167883542877*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"Kcsh", "=", 
   RowBox[{"Kc", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"mu", "*", "Kc"}]}], ")"}]}]}], TraditionalForm]], "Input"],

Cell[BoxData["0.5304250213385504`"], "Output",
 CellChangeTimes->{3.5011601995804663`*^9, 3.50116217702557*^9, 
  3.5011717747035255`*^9, 3.501173829694064*^9, 3.5011744642663603`*^9, 
  3.501177200771879*^9, 3.50117744397879*^9, 3.501266458005637*^9, 
  3.501267278565571*^9, 3.501305983940053*^9, 3.501348261355502*^9, 
  3.5013506833730335`*^9, 3.5013547620523205`*^9, 3.501678835450772*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"TAsh", "=", 
   RowBox[{"TA", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"1", "+", 
      RowBox[{"mu", "*", "Kc"}]}], "]"}]}]}], TraditionalForm]], "Input"],

Cell[BoxData["0.22411970500652373`"], "Output",
 CellChangeTimes->{3.5011601996794724`*^9, 3.5011621770455713`*^9, 
  3.501171774726527*^9, 3.501173829716066*^9, 3.5011744642883615`*^9, 
  3.50117720079088*^9, 3.501177444000791*^9, 3.501266458024638*^9, 
  3.501267278585572*^9, 3.501305983961054*^9, 3.5013482624105625`*^9, 
  3.5013506847261114`*^9, 3.501354762070322*^9, 3.501678835473773*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"iv", "=", 
   RowBox[{"1.2", "/", 
    RowBox[{"(", 
     RowBox[{"Kcsh", "*", "Tv"}], ")"}], " ", 
    RowBox[{"(*", 
     RowBox[{
     "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435\
", " ", "\:0447\:0438\:0441\:043b\:043e", " ", 
      "\:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430", " ", 
      "\:043f\:043e", " ", "\:0441\:0438\:0433\:043d\:0430\:043b\:0443", " ", 
      "\:0443\:0433\:043b\:0430", " ", 
      "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}]}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.501677207213642*^9, 3.501677228929884*^9}, {
  3.5016788158166485`*^9, 3.501678820717929*^9}, {3.512813014319824*^9, 
  3.512813015705903*^9}}],

Cell[BoxData["2.2623367143800044`"], "Output",
 CellChangeTimes->{3.5011601997024736`*^9, 3.5011621770695724`*^9, 
  3.5011717747495284`*^9, 3.5011738297400675`*^9, 3.5011744643083625`*^9, 
  3.5011772008088813`*^9, 3.5011774440217924`*^9, 3.501266458043639*^9, 
  3.501267278606573*^9, 3.501305983983055*^9, 3.5013482632956133`*^9, 
  3.501350686033186*^9, 3.501354762089323*^9, 3.501678835497774*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"nu", "=", 
   RowBox[{"0.09", "/", 
    RowBox[{"(", 
     RowBox[{"Kcsh", "*", 
      RowBox[{"Tv", "^", "2"}]}], ")"}], " ", 
    RowBox[{"(*", 
     RowBox[{
     "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435\
", " ", "\:0447\:0438\:0441\:043b\:043e", " ", 
      "\:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430", " ", 
      "\:043f\:043e", " ", "\:0441\:0438\:0433\:043d\:0430\:043b\:0443", " ", 
      "\:0438\:043d\:0442\:0435\:0433\:0440\:0430\:043b\:0430", " ", 
      "\:0443\:0433\:043b\:0430", " ", 
      "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}]}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.5010069690983653`*^9, 3.501006969822407*^9}, {
   3.5011738238707314`*^9, 3.5011738243597593`*^9}, 3.501174460334135*^9, {
   3.501677252232217*^9, 3.501677279436773*^9}, {3.512812835115574*^9, 
   3.512812836337644*^9}}],

Cell[BoxData["0.20361030429420038`"], "Output",
 CellChangeTimes->{3.501160199724475*^9, 3.501162177089574*^9, 
  3.50117177477353*^9, 3.5011738297640686`*^9, 3.5011744643303633`*^9, 
  3.5011772008268824`*^9, 3.5011774440457935`*^9, 3.50126645806264*^9, 
  3.501267278627574*^9, 3.5013059840050564`*^9, 3.501348264393676*^9, 
  3.501350687244255*^9, 3.5013547621093245`*^9, 3.5016788355217757`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"Tnu", "=", 
   RowBox[{"iv", "/", "nu"}]}], TraditionalForm]], "Input"],

Cell[BoxData["11.111111111111112`"], "Output",
 CellChangeTimes->{3.501160199746476*^9, 3.501162177108575*^9, 
  3.501171774794531*^9, 3.50117382978607*^9, 3.5011744643523645`*^9, 
  3.501177200844883*^9, 3.501177444067795*^9, 3.5012664580816417`*^9, 
  3.5012672786505756`*^9, 3.501305984029058*^9, 3.5013482653167286`*^9, 
  3.5013506882323117`*^9, 3.5013547621293254`*^9, 3.5016788355467772`*^9}]
}, Open  ]],

Cell[TextData[StyleBox["\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435\
 \:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0439 \
\:0438 \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0439 \:0444\
\:0443\:043d\:043a\:0446\:0438\:0438. \:041f\:043e\:0441\:0442\:0440\:043e\
\:0435\:043d\:0438\:0435 \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:0433\:043e \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0430.",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.50156125535822*^9, 3.501561312688321*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"M1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"s", "+", "c1"}], ",", 
         RowBox[{
          RowBox[{"c5", "*", "s"}], "+", "c2"}], ",", "0", ",", "c3"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"s", "+", "c4"}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", "s", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", 
         RowBox[{"nu", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Tnu", "*", "s"}], "+", "1"}], ")"}], "/", "s"}]}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "]"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
     "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
     "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e", " ", 
     "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.501677349970807*^9, 3.5016773520439253`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"0.82`", "\[InvisibleSpace]", "+", "s"}], 
      RowBox[{"11.`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.3`", " ", "s"}]}], "0", "8.8`"},
     {
      RowBox[{"-", "1"}], 
      RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "s", "0"},
     {"0.7504321104681859`", "0", 
      FractionBox[
       RowBox[{"0.20361030429420038`", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"11.111111111111112`", " ", "s"}]}], ")"}]}], "s"], 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5011601997924786`*^9, 3.5011621771285763`*^9, 
  3.501171774848534*^9, 3.501173829810071*^9, 3.5011744643743663`*^9, 
  3.5011772008658843`*^9, 3.5011774440917964`*^9, 3.5012664581036425`*^9, 
  3.501267278673577*^9, 3.501305984087061*^9, 3.5013482662527823`*^9, 
  3.501350689200367*^9, 3.5013547621523266`*^9, 3.5016788355727787`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"M2", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"s", "+", "c1"}], ",", 
         RowBox[{
          RowBox[{"c5", "*", "s"}], "+", "c2"}], ",", "0", ",", "c3"}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"s", "+", "c4"}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"mu", ",", "0", ",", 
         RowBox[{"nu", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Tnu", "*", "s"}], "+", "1"}], ")"}], "/", "s"}]}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "]"}], " ", 
   RowBox[{"(*", 
    RowBox[{"\:041c\:0430\:0442\:0440\:0438\:0446\:0430", ",", " ", 
     RowBox[{
     "\:0432", " ", "\:043a\:043e\:0442\:043e\:0440\:043e\:0439", " ", 
      "\:0441\:0442\:043e\:043b\:0431\:0435\:0446", " ", 
      "\:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\:0432\:0443\
\:044e\:0449\:0438\:0439", " ", "\:0443\:0433\:043b\:0443", " ", 
      "\:0442\:0430\:043d\:0433\:0430\:0436\:0430", " ", 
      "\:0437\:0430\:043c\:0435\:043d\:0435\:043d", " ", "\:043d\:0430", " ", 
      "\:0441\:0442\:043e\:043b\:0431\:0435\:0446", " ", 
      "\:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\:0432\:0443\
\:044e\:0449\:0438\:0439", " ", "\:0440\:0443\:043b\:044e", " ", 
      "\:0432\:044b\:0441\:043e\:0442\:044b"}]}], "*)"}]}], 
  TraditionalForm]], "Input",
 CellChangeTimes->{{3.501677362644532*^9, 3.5016773679058332`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"0.82`", "\[InvisibleSpace]", "+", "s"}], 
      RowBox[{"11.`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.3`", " ", "s"}]}], "0", "8.8`"},
     {
      RowBox[{"-", "1"}], 
      RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0.7504321104681859`", "0", 
      FractionBox[
       RowBox[{"0.20361030429420038`", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"11.111111111111112`", " ", "s"}]}], ")"}]}], "s"], 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.50116019981748*^9, 3.5011621771505775`*^9, 
  3.5011717748755355`*^9, 3.5011738298350725`*^9, 3.5011744644003677`*^9, 
  3.5011772008858857`*^9, 3.5011774441167974`*^9, 3.501266458123644*^9, 
  3.501267278696578*^9, 3.501305984113063*^9, 3.501348270804043*^9, 
  3.501350692977583*^9, 3.501354762174328*^9, 3.50167883559978*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"W", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Det", "[", "M2", "]"}], "/", 
     RowBox[{"Det", "[", "M1", "]"}]}], "]"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
      "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\
\:0439", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], ",", " ", 
     RowBox[{
     "\:043a\:0430\:043a", " ", 
      "\:043e\:0442\:043d\:043e\:0448\:0435\:043d\:0438\:044f", " ", 
      "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0438\:0442\:0435\:043b\
\:0435\:0439", " ", "\:043c\:0430\:0442\:0440\:0438\:0446", " ", "\:041c2", 
      " ", "\:0438", " ", "\:041c1"}]}], "*)"}]}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.5016773807105656`*^9, 3.501677381471609*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"19.908563086544042`", " ", 
   RowBox[{"(", 
    RowBox[{"0.08999999999999997`", "\[InvisibleSpace]", "+", "s"}], ")"}], 
   " ", 
   RowBox[{"(", 
    RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.09840743806228511`", "\[InvisibleSpace]", "+", "s"}], ")"}], 
   " ", 
   RowBox[{"(", 
    RowBox[{"0.6495372523931325`", "\[InvisibleSpace]", "+", "s"}], ")"}], 
   " ", 
   RowBox[{"(", 
    RowBox[{"33.638117383644925`", "\[InvisibleSpace]", "+", 
     RowBox[{"8.17585788166462`", " ", "s"}], "+", 
     SuperscriptBox["s", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.5011601998584824`*^9, 3.5011621771715784`*^9, 
  3.5011717749435396`*^9, 3.501173829878075*^9, 3.5011744644253693`*^9, 
  3.5011772009248877`*^9, 3.5011774441588*^9, 3.501266458161646*^9, 
  3.5012672787195797`*^9, 3.5013059841720657`*^9, 3.501348272085116*^9, 
  3.5013506946116767`*^9, 3.50135476221033*^9, 3.5016788356407824`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"h", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"InverseLaplaceTransform", "[", 
     RowBox[{
      RowBox[{"W", "/", "s"}], ",", "s", ",", "t"}], "]"}], "]"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435", " ", 
      "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0439", " ", 
      "\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], " ", "-", " ", 
     RowBox[{
     "\:043e\:0431\:0440\:0430\:0442\:043d\:043e\:0435", " ", 
      "\:043f\:0440\:0435\:043e\:0431\:0440\:0430\:0437\:043e\:0432\:0430\
\:043d\:0438\:0435", " ", "\:041b\:0430\:043f\:043b\:0430\:0441\:0430"}]}], 
    "*)"}]}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.50167739337029*^9, 3.501677393954323*^9}}],

Cell[BoxData[
 RowBox[{"0.9999999999999998`", "\[InvisibleSpace]", "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "+", 
     RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "4.08792894083231`"}], "-", 
       RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
     "t"}]]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "-", 
     RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "4.08792894083231`"}], "+", 
       RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
     "t"}]]}], "-", 
  RowBox[{"0.5958112704562757`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "0.6495372523931325`"}], " ", "t"}]]}], "+", 
  RowBox[{"0.10351345694759813`", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "0.09840743806228511`"}], " ", "t"}]]}]}]], "Output",
 CellChangeTimes->{3.5011601999324865`*^9, 3.5011621772145805`*^9, 
  3.501171775108549*^9, 3.5011738299490795`*^9, 3.5011744644753723`*^9, 
  3.5011772009908915`*^9, 3.501177444229804*^9, 3.5012664582276497`*^9, 
  3.5012672787645817`*^9, 3.501305984397079*^9, 3.501348273103174*^9, 
  3.5013506959877553`*^9, 3.501354762274334*^9, 3.501678835715787*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"hf", "[", "t_", "]"}], "=", 
   RowBox[{"Abs", "[", "h", "]"}]}], TraditionalForm]], "Input"],

Cell[BoxData[
 RowBox[{"Abs", "[", 
  RowBox[{"0.9999999999999998`", "\[InvisibleSpace]", "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4.08792894083231`"}], "-", 
        RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      "t"}]]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4.08792894083231`"}], "+", 
        RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
      "t"}]]}], "-", 
   RowBox[{"0.5958112704562757`", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "0.6495372523931325`"}], " ", "t"}]]}], "+", 
   RowBox[{"0.10351345694759813`", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "0.09840743806228511`"}], " ", "t"}]]}]}], "]"}]], "Output",
 CellChangeTimes->{3.501160199957488*^9, 3.501162177233582*^9, 
  3.5011717751355505`*^9, 3.501173830016083*^9, 3.5011744644993734`*^9, 
  3.5011772010098925`*^9, 3.5011774442548056`*^9, 3.501266458246651*^9, 
  3.501267278786583*^9, 3.5013059845250864`*^9, 3.501348274320244*^9, 
  3.5013506970038137`*^9, 3.501354762293335*^9, 3.5016788357417884`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"Plot", "[", 
   RowBox[{"h", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1.2"}], "}"}]}]}], "]"}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.500989418979556*^9, 3.5009895181692295`*^9}, {
  3.5009895542082906`*^9, 3.500989554514308*^9}, {3.500997335724368*^9, 
  3.5009973363114014`*^9}, {3.5128128686994953`*^9, 3.512812874629834*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc81e8XAPBLskfZ99oqUTJKMuKcrG76UqGQNDTsEFGJVCIrq5IGGggl
Iwkloyj9UolKlJFx7U82kd/jr3vfr/u8nvt6zjnPc46Ck5fVUXYajabKRqMt
firGzt9Pkc03JF9p5XUZBsXcKnKeLrGAm3gdO7ydoPJU7gNll1TQ4P+wenPJ
eUjU7toncCUTDqoo2GxWToQaDR9nTpcnIGywx3d6bxqcFVt4vpBWCK8Hzwue
jHgI1xNMDediiuHDvLu31EQePBGKrp4+UwZT/PJCg6uewdvoBuaE8yvw7pXb
51JRBlQof++p7EownN0r8/VbBQRVP1GZSquG0tvbHXZR1XAdJ3PHYmohWNci
ePpQHbzTu1gy6PwRBP2C7HKqv0DOZpHgjU8+Qb7qL4vdB5rgT8uRVL/sz/Bx
UFdFf+wrBDO4O0fTvsDy6rUZ9+eb4XWJ/ZL1txvh6Mu28Gc+LcBrn7PSJ6kJ
DA649kk1t0JSkqXzSMw3YOrtKzE61wa/tNMuq0V8h1a9odD4/e2w8uufLM/Q
ZjB6RksynWyHPNFrgwNnWqBAzrf7h1AnTBb2CKz1bwUa9ebyx/hOMLDWUXfz
+QnGVjvDc/h/Q118iw/LuQ3O0gpHioZ+w+Ub198larbDI49f/aY2XaDqAns3
PGkHIeG1HUFPu+DjJlZ/g2oHmBlGht0W7IYTXPGBJ7I7INr5P+0up24Q+6bL
L6zcCVkpctw387vheUbn7fz0TnjhGf6X4283/DPVKqfSfsPMjeajUud64K7Y
T8s42S5Q37lJyK60B0y6L7Wp3+6CiIYGBfc/PcB6qub9kd4NaVyp/rdW9kJU
6DeaV1I3zPWmeKrZ9IKaTUi8oFgPfBZ4nOQc0gsNK1QUcxN6wLyi2fNyVi9I
Vp8xHorphSyv52qBY71QlrCiMZqPBeqZ8nnVoizY7/S/I6oRLMj1c3vbvoEF
D9hkw9xD+8A+N3GVswcLtn6uEedj7weNjVK2GmEs6E/zysw+1w8BA/HjMSks
0MTKt31nBuALQ8824z0LGoXc7COmB2Dj2ztzWe0sONUm3K/sPwipNtuoL+Ms
KA8+wufiMwSey07PCEr1gflLLsse5xEYYjcvqjnUB5oLThPi1Ah83rH1npxf
H0TLH6hfsZmCIJPOTJOwPvBzKj1p85qCNz5JuurZfWDS4/26qPEP2PuGiZf8
6YPOoZ+HTk2MgfGKUVP50H74eiWqKE53HK4lW1d8ut4Pdeq6PFlB41Aao2eR
kNUPBT5X85qXToCVe2i0wcd+OD9hvqAnPgkrhdYltTIGQH6++Pa89jQItCg/
cMgbANGUo5RY4DT0fCmSy6gaAG4QMVF7NQ3vC2ddPzcOwEjI8YH9W2fgmFjI
bCWJQznHKr0K21kY19MKbTYcBEf+hG8XTs3BhZqs+y1Vg7DzMay99WIO8vme
MqIaBsHEcii4kDYPVXsNj/B1DoJqHFOp6/I8XPNmTw2mDcGcyIKfafI/OPrz
7IiW/hB8ENDm4XCkYUyW0Q2th0PQsF34Rv1ZGmpulGnTezoE3yOGlZJv03DS
sNRDpmIIupZmmqi10rDOsM/g9Dey37xEiJ0DGwq6KLfc4BiGNcMzk4/s2fF5
u3n0T7th0FD9eingNDv+z7Fl4ZfTMGi7FYgaJbOjAou3stpjGIx63NZ/+86O
UeuX5OiEDIP9rxZPNrslmH2+XuJH+jBcrn/ZtXsPB7oXgrnJ4DBc4b/pK+/P
gTxreYXujw/DVXN/9oFrHFj5y0e9f24YUmvU5EOaOPBe7tbI9QIj8Kw81SHb
Zimy5EYTClRHoDv3fMM/K050NNxedJ/UTf+g46F3JziRJW+b/+D4CFBr9KjE
BE5Mpe/Ijj85AnMZowIqDZyYE/tjv8bFERBNPbzNehcXRmvzmIbdGQGjWNOK
zB3ceDAtYPhl/QiEmD/NajjOjd+7PO1ONY5A+dIVifMx3MjW3LRP8ccI6J2l
HbP+Hzf68dCaTbtHYINrGd8CkweH/My5Ps6OwEpjTds9RrxY4qqqGbacAqd/
qXj+EC86da0M7BOhIK1EcM2jEF6MFH9UYypOgbTG4BzbK148rVuc1cegQEwm
895jfT68lDYd0b6CAs4p6WGOjfwYnvriXLIWBSYFUd/UbfhRKaGh76o2BRc8
Zyv2+vLj8cIjByN1KPj3+1tiXj4/LuRa5x0m92bqU4LuPjUBHOT1CPlsTAEr
m/tS4WpBjPAOiMvYRYHSsYDjv8wEkRst0rdZU3BEoceW55gguuia5fTaUNCe
VL3mwANBjL08Uy5qR0FzaPAnXgUh3Jcf46G1n4Kj6rMCmgLLcG+8Vd5VVwr+
awlPl5Rdhp884x/xuFOgFS5mQFNfhq5sqbdOe1DA0abh8XHnMoxSmYs096Lg
3hXnOs+ry3D7BxGtAj8K2oYaw7KllqPkP4UDD4IpqEl2kk1QXY5SH3s7689R
kGtKFZ02WI5vIvvXToRQEHyHr5t5YDnSd/kabLxI4mlhZNx7bzk+t+LJCA2n
wP7Rk4UVa4RxKVv5IbdYCtDOIIlPXxhFJxLj98RRoMzxXm1suzCuc3+8CeIp
mHbocazyJOsv/BbkTKTgOp/Mi4P5wsj42j/ndp38X3G2NbNKGCs2aI7pJ5Hz
H9YZUP8ijEFNHo95bpDzllkzFsbJ/gZZCbeSKfjiFnnqjo4IGirOSd+8TUGp
uOSyS9tEkKfUWcPqDjl/VXqmx14RDIgX2MGVQsEJRuVX/bMiyDnb9tEllYJl
dVNaP16J4HetwFqeexRYqBz9I75VFNl4NoXWZVAwG3Wy7OceUZydOFBjkUnB
w+FLlx4cE8XMmys764k5nmbQ14eJYunAo5d1D8n/G7K2WLwRxRjB/PtZ2RS4
3J3mE20SxegMupV0Dqk/Dp6vP7pEMaVmhjOG2PudipsLhxja6Ickuzwi9WLj
nnDRWAzb1LeOc+dS0PgscJ+5tRg63vRy9SA+T49WWn5YDP1EvAXriVt/PSpN
uSCGXtNP/kY9oSDRdbizpFIM2etc+0fzKKCd89lAgTjSDuWv8Skk+e04P/9s
hziqWVh9KSF2MEmoDTogjvMVqydoTyl4xlPowHdOHM9ybSyKJPa4On5RqVwc
Gxo7kqOLKGBMcVgOfRDHcrGgc++Ia+3FJJ/+FEeX4qp/HM8oUJTTfrRlXhwZ
PdXNAcTNWQGN+zZLYA5fobtFMQVh/JdTVvwngZZ185fPEWt53XDpd5DAP0s7
HfOI47RK5gICJTAiqGSz4HMKDJPe1RhGSWDckmILfeKBmea4pbck8OE7p5XO
xGavZlcmlkpga5i/RhnxuALfiH2dBEquuOvxm/huqFSJ/A8JfO6/EMhbQsHc
ts0WuTMSOL0zSGE3cUFj0Ml3OpLIO/Gko5X44aUjTp3bJHEdfrn7jzhFe/uO
v3slUdysQ1aulILIG5Iq64IkcXXJqgP7iEO2LYiZXZHEgJ0TKqeJ/We72Q+k
Eq/vrLhKfHhfYWtcpSRmyTYceku8V+Dmu6wGSaSfZ/i2E+8sD3lW9VsSqyT4
DkwRb5a3jBtfSkdZf1qTQhkF6z9rBQlI0HHt7tmjG4mVL0i5KSnTseZDWNtW
YtEulrGdOR3T7L4luxLzXvuo4eNAx+s5xh2niGlmz2QiPej43SJRNpx4cvI2
7/0gOq5XX7L7KvFg5sWpsit0ZCnVhqcRd9q5dTWmEvPzluYQf+fZ9Xkoj45P
GoaGi4jrSzeVc1bRkboVpfKK+I27bI7cF+KvYx61xC+kl97Q6aJjpo3ai3ri
gg8Dobsm6Jh8UI/RRPwwuMHHjZOBHt8FI38Qp6iX7L8owUA0vinYRny1PXX7
bWUG1rKqsjuJI+PDdIp0GSjJOnaomzjEyHNVvTkDLSz3bewl9h+zFu51YGCj
qo8Ki9jjgd7CggcD45+446KddisMSgYzsGw9b9DiejtO7mbNWAaesVvSubif
ZfHwG/M0BlrLcp74TWzi0lRwOJ+Bu0ZL1NuJ9egvUs9WMfBPbblMK7FG3b3o
a18Y2Kn62PAb8erAiNO5XWQ/R/Frn4llVb2P1U4wkGYfuuL9Yn5+7rFu55TC
4onTg9WL+bligDMSUlg0fmK0bDE/sHKdsIoUnhPr2lS4mJ8RXsZaPSn0U9F/
lbWYn7Q/nCbbpZB9dVtk6mI+2F+1n/SUwrjf4dOXF/NRmP7hSrAUxo7qpJ4l
fn0kujQzVgrpebGJXsT5NfZXm/Ol8PGg4XHrxfgH4PnRKik8WCdkb7IYf+XV
x/kapXDPpoCbWovxjhzfajAphYH3ilREFuOt36K1h0savU2+BLItxnuwUsFL
Uhql2kTXjZB6dbKM/ZumJ42rHXYULda3vvCaJxznpPHzL7drfsT1bHvffYiV
RoWUjov7iQ/+ifh9PU0abdXze7YSh37qk1CpksacmIhl9MX1V7JCLJbKoGL9
TqUicv8O8qlYXY+SwfelPI1N5D6Pztp5HLgtg/DmUlMxcWj/5TDlxzJY0Tt4
NJk46x2rtLReBnP8L+o6LK4Pf7iibbksTt6TbGom70soh/LE6huyqF/2jfGa
vE/i47ZCfx7KYnakc3Eq8cPf4SqlJbIofVN15gzxh6pex/9aZLFp8xEfjcX1
5zNrvGXl0DB1pW0Sef+y5pVulDyQwxfN19j2kPfS+W/CnXQ7eVx+au2plHxS
z5aD1acPyuM5DhqbH3HFXdN+Cxd5DJJOt9tGLMmc1p4MkMc3PVsCxsh7/faq
4yezJHn8637hkimxipryElaTPBZU/Q3qIO/9wMGXLmusFTCrdsJonvQPr5re
DU8sFNG8QUmnM53kby/nqnmPlbiL/77vHOmfh2sDj2m6KOFSRRlRySgKKrno
u9ztldG/2tdCgPR7zeUh1/v81iBv2qHBrhMUHBgzULX0UMVHtq8CT7mQeSrl
jfRUjBqqv92uvIbMIwVX9FoarDTQEF98XCDzi2+pwc47/2niMuqDv4EFBeV1
6aMRDutRrcJP4I4p6X9bdV+62m3A0QyxH2uBglsPNYvc3bQwqyNkvoXMU3Fj
L897B2zEFmmug2akU3Vnn/R3OaGN0sbJzrFqFFSbJdy4cGETXk6ufjOiQu7L
jh+dsSE6mC9dMM6tRMECPmNLO62LDVnD/2IVKQiXmLJoCNdD525lxdVyJD57
D1dNXdTH0162HmbSZN46r3UErm3G/UIzt/zoFIgkJv+IuGuAwlKt3JNkXkxf
tuZ07S1DXDtvO/ZDlOTrhJzp6hxAziu6wnXC5L7Ip0kb2CBaSkRV8pH58+XZ
WZrLJ8RXcr2+wUIUKGznmlthuwWPtA8pTQtQ8PSjSlRz4xaMKP79NJefguia
fxryjkaoXruk2p2P9GvfPreDrUZ4uybT1IGXgrNiskKK9sb4JpjzvQsPqS+V
pXV+7cbIFXv/7RluMq+Os9Er95vg4JXcvnwuCjI18oNTek2QzuW5ZoiT1ItT
tuW8pylmSfxTAOKWbSUFuwdMMXiIpfNoKQUN98+sA18z5L5rtUKaeLpw12bF
UTO0/fUi5h4HiefzE0Vhx7fiOMW2R5t4u4aZ6dmJrShZpCD0vyWk3zuqu7r7
MnFWIdrhBLHwYZeyOyeZeFXX9Zc38X6XuwKfApioPNZ/yIt48oRIgdZZJvao
t7h5EK+8PDU7H8pExjLn0GPEIQWvouOuM9GrYbhpL7Ee1868ohImNtV+o4yX
LM4LEeysMiZuuVcZbkT8eXmVDaOciVEnt8ptIXaR1poJrmKi7cyqnYbESZqS
Rsz35HfZ1SU6xOMO7V9+tDJx4uJC5jpiPERXEmhjYvP1CKYqcdQxq1PQwcR1
Z3L61hAr+ryWftDNxMmconXKxLvCHh71HF5c3/pCkfh2VEdxKsVECy5ZJwVi
VhyDt2GUiY8MJ7jkF89zKzpXe4qJgQuHd8sQ/y/tDc11hoktXH/npIglMv5Z
3frLRI4mpXQGsVPOpvQP80wsUOq1oBPn5nlPLSwwseKF/pQE8f8B5rwHaQ==

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 50}, {0, 1.8}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.50116019999549*^9, 3.5011621772595835`*^9, 
  3.5011717752975597`*^9, 3.5011738301130886`*^9, 3.501174464531375*^9, 
  3.5011772010458946`*^9, 3.5011774442978077`*^9, 3.5012664582816534`*^9, 
  3.501267278813585*^9, 3.501305984785101*^9, 3.50134827565032*^9, 
  3.501350698937924*^9, 3.501354762334337*^9, 3.501678836068807*^9}]
}, Open  ]],

Cell[TextData[StyleBox["\:0410\:043d\:0430\:043b\:0438\:0442\:0438\:0447\:0435\
\:0441\:043a\:043e\:0435 \:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\
\:043d\:0438\:0435 \:0432\:0440\:0435\:043c\:0435\:043d\:0438 \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f \:0438 \
\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\
\:0430\:043d\:0438\:044f:",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.5009897164255686`*^9, 3.5009897439581437`*^9}, 
   3.500998746068035*^9, {3.501561419782509*^9, 3.501561441248146*^9}}],

Cell[BoxData[{
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"kol", "=", "10000"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "\:041a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:043e", " ", 
      "\:043f\:0440\:043e\:043c\:0435\:0436\:0443\:0442\:043a\:043e\:0432", 
      " ", "\:0440\:0430\:0437\:0431\:0438\:0435\:043d\:0438\:044f", "  ", 
      "\:0434\:0438\:0430\:043f\:0430\:0437\:043e\:043d\:0430"}], ",", " ", 
     RowBox[{
     "\:043d\:0430", " ", "\:043a\:043e\:0442\:043e\:0440\:043e\:043c", " ", 
      "\:0438\:0449\:0435\:0442\:0441\:044f", " ", 
      "\:0440\:0435\:0448\:0435\:043d\:0438\:0435"}]}], "*)"}]}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"dt", "=", 
    RowBox[{"20", "/", "kol"}]}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:0428\:0430\:0433", " ", 
     "\:0440\:0430\:0437\:0431\:0438\:0435\:043d\:0438\:044f"}], "*)"}]}], 
  TraditionalForm]}], "Input",
 CellChangeTimes->{{3.500989543144658*^9, 3.500989544297724*^9}, {
   3.5009904474583817`*^9, 3.5009904479664106`*^9}, {3.500990960117704*^9, 
   3.500990960362718*^9}, {3.500991016447926*^9, 3.5009910189200673`*^9}, 
   3.500991062434556*^9, {3.5010072002155848`*^9, 3.501007205996915*^9}, {
   3.501676436016532*^9, 3.5016764639811316`*^9}, {3.5016765002432055`*^9, 
   3.50167653196502*^9}, {3.512812901727384*^9, 3.5128129031114635`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"Ust", "=", 
     RowBox[{"hf", "[", "50000", "]"}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
     "\:041e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\:043d\:0438\:0435", 
      " ", "\:0443\:0441\:0442\:0430\:043d\:043e\:0432\:0438\:0432\:0448\:0435\
\:0433\:043e\:0441\:044f", " ", 
      "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"hmax", "=", 
     RowBox[{"hf", "[", "0", "]"}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
     "\:041d\:0430\:0447\:0430\:043b\:044c\:043d\:043e\:0435", " ", 
      "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435", " ", 
      "\:043c\:0430\:043a\:0441\:0438\:043c\:0430\:043b\:044c\:043d\:043e\
\:0433\:043e", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f"}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "<", 
       RowBox[{"kol", "+", "1"}]}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Sign", "[", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{
                RowBox[{"hf", "[", 
                 RowBox[{"dt", "*", 
                  RowBox[{"(", 
                   RowBox[{"i", "-", "1"}], ")"}]}], "]"}], "-", "Ust"}], 
               "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", 
            RowBox[{"Sign", "[", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{
                RowBox[{"hf", "[", 
                 RowBox[{"dt", "*", 
                  RowBox[{"(", "i", ")"}]}], "]"}], "-", "Ust"}], "]"}], "-", 
              "0.05"}], "]"}]}], ",", 
           RowBox[{"Treg", "=", 
            RowBox[{"dt", "*", 
             RowBox[{"(", 
              RowBox[{"i", "-", "0.5"}], ")"}]}]}]}], "]"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"hmax", "<", 
            RowBox[{"hf", "[", 
             RowBox[{"dt", "*", "i"}], "]"}]}], ",", 
           RowBox[{"hmax", "=", 
            RowBox[{"hf", "[", 
             RowBox[{"dt", "*", "i"}], "]"}]}]}], "]"}]}], "}"}], ";", 
       RowBox[{"i", "++"}]}]}], "]"}]}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{
      "\:0427\:0438\:0441\:043b\:0435\:043d\:043d\:043e\:0435", " ", 
       "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", 
       "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", 
       RowBox[{"h", "(", "t", ")"}]}], "=", 
      RowBox[{
       RowBox[{"0.95", " ", "\:0438", " ", 
        RowBox[{"h", "(", "t", ")"}]}], "=", "1.05"}]}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
       "\:043e\:0431\:044a\:0435\:0434\:0438\:043d\:0435\:043d\:043d\:044b\
\:0445", " ", "\:0432", " ", "\:043e\:0434\:043d\:043e"}], " ", "|", 
       RowBox[{
        RowBox[{"h", "(", "t", ")"}], "-", "1"}], "|", 
       RowBox[{"-", "0.05"}]}], "=", 
      RowBox[{
      "0", " ", "\:0438", " ", 
       "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\:043d\:0438\:0435", 
       " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0443\:043c\:0430"}]}]}], 
    "*)"}]}], TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"sigma", "=", 
     RowBox[{"Round", "[", 
      RowBox[{
       RowBox[{"100", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"hmax", "-", "Ust"}], ")"}], "/", "Ust"}]}], ",", "0.01"}], 
      "]"}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
     "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
      "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Treg=\>\"", ",", "Treg", ",", "\"\<  \:0441.\>\""}], 
     "]"}]}], " "}], TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Sigma=\>\"", ",", "sigma", ",", "\"\<%.\>\""}], "]"}], " "}],
   TraditionalForm]}], "Input",
 CellChangeTimes->{{3.5009884502351465`*^9, 3.500988451232204*^9}, {
   3.500988484509107*^9, 3.5009885170519686`*^9}, 3.5009885614485083`*^9, 
   3.5009893753640614`*^9, {3.5009897507085295`*^9, 3.500989757405913*^9}, {
   3.5009899243834634`*^9, 3.500989930586818*^9}, {3.5009903014290295`*^9, 
   3.5009903145177774`*^9}, {3.5009904236280184`*^9, 
   3.5009904608381467`*^9}, {3.500998284438631*^9, 3.5009982911320143`*^9}, {
   3.5009983217697663`*^9, 3.5009983517944837`*^9}, {3.500998522056222*^9, 
   3.500998532943845*^9}, {3.500998671622777*^9, 3.500998822416402*^9}, {
   3.5009988740213537`*^9, 3.5009988911053305`*^9}, {3.5009993418501115`*^9, 
   3.5009993643343973`*^9}, {3.5015616902089834`*^9, 3.501561710395419*^9}, {
   3.5015617892535577`*^9, 3.5015618662864933`*^9}, {3.501561922758592*^9, 
   3.501561937656618*^9}, {3.501561984643901*^9, 3.501562156906604*^9}, {
   3.501562227028727*^9, 3.501562238416747*^9}, {3.501677559460789*^9, 
   3.5016776227424088`*^9}, {3.512812926168782*^9, 3.51281295061018*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Treg=\"\>", "\[InvisibleSpace]", "2.3125`", 
   "\[InvisibleSpace]", "\<\"  \:0441.\"\>"}],
  SequenceForm["Treg=", 2.3125, "  \:0441."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011602005925245`*^9, 3.5011621778236156`*^9, 
  3.501171775872593*^9, 3.501173830683121*^9, 3.501174465094407*^9, 
  3.501177201601927*^9, 3.5011774448658404`*^9, 3.501266458833685*^9, 
  3.501267279384618*^9, 3.5013059853871355`*^9, 3.501348287590003*^9, 
  3.5013507052512856`*^9, 3.5013547628793683`*^9, 3.501678836629839*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Sigma=\"\>", "\[InvisibleSpace]", "4.59`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm["Sigma=", 4.59, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011602005925245`*^9, 3.5011621778236156`*^9, 
  3.501171775872593*^9, 3.501173830683121*^9, 3.501174465094407*^9, 
  3.501177201601927*^9, 3.5011774448658404`*^9, 3.501266458833685*^9, 
  3.501267279384618*^9, 3.5013059853871355`*^9, 3.501348287590003*^9, 
  3.5013507052512856`*^9, 3.5013547628793683`*^9, 3.5016788366308393`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Soch", "=", "4"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:041a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:043e", " ", 
     "\:0443\:0440\:043e\:0432\:043d\:0435\:0439", " ", "\:0432", " ", 
     "\:043a\:0430\:0436\:0434\:043e\:043c", " ", 
     "\:0444\:0430\:043a\:0442\:043e\:0440\:0435", " ", 
     "\:0440\:0430\:0432\:043d\:043e\:0435", " ", "Soch"}], "-", "1"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"koefstep", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1.1", "-", "0.9"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"Soch", "-", "2"}], ")"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:0428\:0430\:0433", " ", 
     "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:044f", " ", 
     "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:043e\
\:0432", " ", "\:043b\:0438\:043d\:0435\:0439\:043d\:043e\:0439", " ", 
     "\:043c\:043e\:0434\:0435\:043b\:0438"}], "*)"}]}]}]}], "Input",
 CellChangeTimes->{{3.501008969384775*^9, 3.5010090008615756`*^9}, {
  3.5011576868837485`*^9, 3.5011576874787827`*^9}, {3.5011593776774564`*^9, 
  3.5011593779194703`*^9}, {3.5011651650564756`*^9, 3.501165165788518*^9}, {
  3.501167565955799*^9, 3.501167566741844*^9}, {3.501169053209865*^9, 
  3.5011690582741547`*^9}, {3.5011774354763036`*^9, 3.50117743629535*^9}, {
  3.5012664471570168`*^9, 3.501266449565154*^9}, {3.5012672709721365`*^9, 
  3.5012672717961836`*^9}, {3.5013080278789597`*^9, 3.501308028263982*^9}, {
  3.501354741301134*^9, 3.501354742069178*^9}, {3.501562284312028*^9, 
  3.5015623350165167`*^9}, {3.5015623750461874`*^9, 3.501562429677483*^9}}],

Cell[BoxData["0.10000000000000003`"], "Output",
 CellChangeTimes->{
  3.5011690665876303`*^9, 3.5011696340870895`*^9, 3.501171775928596*^9, 
   3.501173830736124*^9, 3.5011744651164083`*^9, 3.501177201624928*^9, 
   3.501177444917844*^9, 3.501266458893688*^9, {3.501267275604401*^9, 
   3.5012672794166193`*^9}, 3.501305985409137*^9, 3.5013080305181103`*^9, 
   3.5013547629043694`*^9, 3.5016788366898427`*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["\:041f\:043e\:043b\:043d\:044b\:0439 \
\:0444\:0430\:043a\:0442\:043e\:0440\:043d\:044b\:0439 \:044d\:043a\:0441\
\:043f\:0435\:0440\:0438\:043c\:0435\:043d\:0442:\n",
  FontSize->16,
  FontWeight->"Bold"],
 StyleBox["\:0432 \:043f\:043e\:0441\:043b\:0435\:0434\:043d\:0435\:043c \
\:0432\:043b\:043e\:0436\:0435\:043d\:043d\:043e\:043c \:0446\:0438\:043a\
\:043b\:0435 (m) \
\:043f\:0440\:043e\:0438\:0441\:0445\:043e\:0434\:0438\:0442: \:0440\:0430\
\:0441\:0447\:0435\:0442 \:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\
\:0435\:043d\:0442\:043e\:0432 \:043b\:0438\:043d\:0435\:0439\:043d\:043e\
\:0439 \:043c\:043e\:0434\:0435\:043b\:0438 \:0441\:0430\:043c\:043e\:043b\
\:0435\:0442\:0430 \:0434\:043b\:044f \:0442\:0435\:043a\:0443\:0449\:0435\
\:0433\:043e \:0441\:043e\:0447\:0435\:0442\:0430\:043d\:0438\:044f \:0443\
\:0440\:043e\:0432\:043d\:0435\:0439 \:0444\:0430\:043a\:0442\:043e\:0440\
\:043e\:0432, \:0440\:0430\:0441\:0447\:0435\:0442 \:043f\:0435\:0440\:0435\
\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0439 \:0438 \:043f\:0435\:0440\
\:0435\:0445\:043e\:0434\:043d\:043e\:0439 \:0444\:0443\:043d\:043a\:0446\
\:0438\:0438 \:0441\:0438\:0441\:0442\:0435\:043c\:044b, \:0430\:043d\:0430\
\:043b\:0438\:0442\:0438\:0447\:0435\:0441\:043a\:043e\:0435 \:043e\:043f\
\:0440\:0435\:0434\:0435\:043b\:0435\:043d\:0438\:0435 \:0432\:0440\:0435\
\:043c\:0435\:043d\:0438 \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\
\:0432\:0430\:043d\:0438\:044f \:0438 \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f \:0438 \
\:0438\:0445 \:043e\:0446\:0435\:043d\:043a\:0430",
  FontSize->14],
 "."
}], "Text",
 CellChangeTimes->{{3.501562687467936*^9, 3.501562716702387*^9}, {
  3.501677678291586*^9, 3.5016778495843835`*^9}, {3.50167794516185*^9, 
  3.5016779505331573`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ocen", "=", "0"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:0435\:0440\:0435\:043c\:0435\:043d\:043d\:0430\:044f", ",", " ", 
    RowBox[{
    "\:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0432\:0443\:044e\:0449\
\:0430\:044f", " ", 
     "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:0443", " ", 
     "\:0440\:0435\:0436\:0438\:043c\:043e\:0432"}], ",", " ", 
    RowBox[{
    "\:043d\:0430", " ", "\:043a\:043e\:0442\:043e\:0440\:044b\:0445", " ", 
     "\:043f\:043e\:043b\:0443\:0447\:0430\:044e\:0442\:0441\:044f", " ", 
     "\:043d\:0435\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\
\:0438\:0442\:0435\:043b\:044c\:043d\:044b\:0435", " ", 
     "\:0445\:0430\:0440\:0430\:043a\:0442\:0435\:0440\:0438\:0441\:0442\:0438\
\:043a\:0438", " ", 
     "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:044b\:0445", " ", 
     "\:043f\:0440\:043e\:0446\:0435\:0441\:0441\:043e\:0432"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"VTsr", "=", 
    RowBox[{"{", "}"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0441\:0441\:0438\:0432", " ", "\:0434\:043b\:044f", " ", 
    "\:0437\:0430\:043f\:0438\:0441\:0438", " ", 
    "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", 
    "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\
\:044f", " ", "\:043d\:0430", " ", 
    "\:043d\:0435\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\
\:0438\:0442\:0435\:043b\:044c\:043d\:044b\:0445", " ", 
    "\:0440\:0435\:0436\:0438\:043c\:0430\:0445"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"VSsr", "=", 
    RowBox[{"{", "}"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0441\:0441\:0438\:0432", " ", "\:0434\:043b\:044f", " ", 
    "\:0437\:0430\:043f\:0438\:0441\:0438", " ", 
    "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\
\:0432\:0430\:043d\:0438\:044f", " ", "\:043d\:0430", " ", 
    "\:043d\:0435\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\
\:0438\:0442\:0435\:043b\:044c\:043d\:044b\:0445", " ", 
    "\:0440\:0435\:0436\:0438\:043c\:0430\:0445"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<", "Soch"}], ",", " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:0426\:0438\:043a\:043b", " ", "\:0434\:043b\:044f", " ", 
     "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:044f", " ", 
     "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\
", " ", "\:04411"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "<", "Soch"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
        "\:0426\:0438\:043a\:043b", " ", "\:0434\:043b\:044f", " ", 
         "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:044f", " ", 
         "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\
\:0430", " ", "\:04412"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"k", "=", "1"}], ",", 
           RowBox[{"k", "<", "Soch"}], ",", " ", 
           RowBox[{"(*", 
            RowBox[{
            "\:0426\:0438\:043a\:043b", " ", "\:0434\:043b\:044f", " ", 
             "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:044f", " ", 
             "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\
\:0442\:0430", " ", "\:04413"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"l", "=", "1"}], ",", 
               RowBox[{"l", "<", "Soch"}], ",", " ", 
               RowBox[{"(*", 
                RowBox[{
                "\:0426\:0438\:043a\:043b", " ", "\:0434\:043b\:044f", " ", 
                 "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:044f", 
                 " ", "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\
\:043d\:0442\:0430", " ", "\:04414"}], "*)"}], "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"For", "[", 
                  RowBox[{
                   RowBox[{"m", "=", "1"}], ",", 
                   RowBox[{"m", "<", "Soch"}], ",", " ", 
                   RowBox[{"(*", 
                    RowBox[{
                    "\:0426\:0438\:043a\:043b", " ", "\:0434\:043b\:044f", 
                    " ", "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\
\:044f", " ", 
                    "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\
\:043d\:0442\:0430", " ", "\:04415"}], "*)"}], "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"c1c", "=", 
                    RowBox[{"c1", "*", 
                    RowBox[{"(", 
                    RowBox[{"0.9", "+", 
                    RowBox[{"koefstep", "*", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"c2c", "=", 
                    RowBox[{"c2", "*", 
                    RowBox[{"(", 
                    RowBox[{"0.9", "+", 
                    RowBox[{"koefstep", "*", 
                    RowBox[{"(", 
                    RowBox[{"j", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"c3c", "=", 
                    RowBox[{"c3", "*", 
                    RowBox[{"(", 
                    RowBox[{"0.9", "+", 
                    RowBox[{"koefstep", "*", 
                    RowBox[{"(", 
                    RowBox[{"k", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"c4c", "=", 
                    RowBox[{"c4", "*", 
                    RowBox[{"(", 
                    RowBox[{"0.9", "+", 
                    RowBox[{"koefstep", "*", 
                    RowBox[{"(", 
                    RowBox[{"l", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"c5c", "=", 
                    RowBox[{"c5", "*", 
                    RowBox[{"(", 
                    RowBox[{"0.9", "+", 
                    RowBox[{"koefstep", "*", 
                    RowBox[{"(", 
                    RowBox[{"m", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", 
                    "\[IndentingNewLine]", 
                    FormBox[
                    RowBox[{"M1", "=", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"s", "+", "c1c"}], ",", 
                    RowBox[{
                    RowBox[{"c5c", "*", "s"}], "+", "c2c"}], ",", "0", ",", 
                    "c3c"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"s", "+", "c4c"}], ",", "0", ",", "0"}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "0", ",", "s", ",", "0"}], "}"}],
                     ",", 
                    RowBox[{"{", 
                    RowBox[{"mu", ",", "0", ",", 
                    RowBox[{"nu", "*", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Tnu", "*", "s"}], "+", "1"}], ")"}], "/", 
                    "s"}]}], ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "}"}]}],
                    TraditionalForm], ";", 
                    RowBox[{"(*", 
                    RowBox[{
                    "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
                    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", 
                    " ", "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\
\:0433\:043e", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], 
                    "*)"}], "\[IndentingNewLine]", 
                    FormBox[
                    RowBox[{"M2", "=", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"s", "+", "c1c"}], ",", 
                    RowBox[{
                    RowBox[{"c5c", "*", "s"}], "+", "c2c"}], ",", "0", ",", 
                    "c3c"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", 
                    RowBox[{"s", "+", "c4c"}], ",", "0", ",", "0"}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}],
                     ",", 
                    RowBox[{"{", 
                    RowBox[{"mu", ",", "0", ",", 
                    RowBox[{"nu", "*", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Tnu", "*", "s"}], "+", "1"}], ")"}], "/", 
                    "s"}]}], ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "}"}]}],
                    TraditionalForm], ";", 
                    RowBox[{"(*", 
                    RowBox[{
                    "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", ",", " ", 
                    RowBox[{
                    "\:0432", " ", 
                    "\:043a\:043e\:0442\:043e\:0440\:043e\:0439", " ", 
                    "\:0441\:0442\:043e\:043b\:0431\:0435\:0446", " ", 
                    "\:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\
\:0432\:0443\:044e\:0449\:0438\:0439", " ", "\:0443\:0433\:043b\:0443", " ", 
                    "\:0442\:0430\:043d\:0433\:0430\:0436\:0430", " ", 
                    "\:0437\:0430\:043c\:0435\:043d\:0435\:043d", " ", 
                    "\:043d\:0430", " ", 
                    "\:0441\:0442\:043e\:043b\:0431\:0435\:0446", " ", 
                    "\:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\
\:0432\:0443\:044e\:0449\:0438\:0439", " ", "\:0440\:0443\:043b\:044e", " ", 
                    "\:0432\:044b\:0441\:043e\:0442\:044b"}]}], "*)"}], 
                    "\[IndentingNewLine]", 
                    FormBox[
                    RowBox[{"W", "=", 
                    RowBox[{
                    RowBox[{"Det", "[", "M2", "]"}], "/", 
                    RowBox[{"Det", "[", "M1", "]"}]}]}],
                    TraditionalForm], ";", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{
                    "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
                    "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\
\:043d\:043e\:0439", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], ",",
                     " ", 
                    RowBox[{
                    "\:043a\:0430\:043a", " ", 
                    "\:043e\:0442\:043d\:043e\:0448\:0435\:043d\:0438\:044f", 
                    " ", "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0438\
\:0442\:0435\:043b\:0435\:0439", " ", "\:043c\:0430\:0442\:0440\:0438\:0446", 
                    " ", "\:041c2", " ", "\:0438", " ", "\:041c1"}]}], "*)"}],
                     "\[IndentingNewLine]", 
                    FormBox[
                    RowBox[{"h", "=", 
                    RowBox[{"InverseLaplaceTransform", "[", 
                    RowBox[{
                    RowBox[{"W", "/", "s"}], ",", "s", ",", "t"}], "]"}]}],
                    TraditionalForm], ";", 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{
                    "\:041f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0435", 
                    " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:0439", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], " ", "-", 
                    " ", 
                    RowBox[{
                    "\:043e\:0431\:0440\:0430\:0442\:043d\:043e\:0435", " ", 
                    
                    "\:043f\:0440\:0435\:043e\:0431\:0440\:0430\:0437\:043e\
\:0432\:0430\:043d\:0438\:0435", " ", 
                    "\:041b\:0430\:043f\:043b\:0430\:0441\:0430"}]}], "*)"}], 
                    "\[IndentingNewLine]", 
                    FormBox[
                    RowBox[{
                    RowBox[{"hf", "[", "t_", "]"}], "=", 
                    RowBox[{"Abs", "[", "h", "]"}]}],
                    TraditionalForm], ";", "\[IndentingNewLine]", 
                    RowBox[{
                    FormBox[
                    RowBox[{
                    RowBox[{
                    RowBox[{"Ust", "=", 
                    RowBox[{"hf", "[", "50000", "]"}]}], ";", 
                    RowBox[{"(*", 
                    RowBox[{
                    "\:041e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\:043d\
\:0438\:0435", " ", 
                    "\:0443\:0441\:0442\:0430\:043d\:043e\:0432\:0438\:0432\
\:0448\:0435\:0433\:043e\:0441\:044f", " ", 
                    "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f"}], 
                    "*)"}], "\[IndentingNewLine]", 
                    RowBox[{"hmax", "=", 
                    RowBox[{"hf", "[", "0", "]"}]}], ";", 
                    RowBox[{"(*", 
                    RowBox[{
                    "\:041d\:0430\:0447\:0430\:043b\:044c\:043d\:043e\:0435", 
                    " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435", 
                    " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0430\:043b\
\:044c\:043d\:043e\:0433\:043e", " ", 
                    "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f"}], 
                    "*)"}], "\[IndentingNewLine]", 
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"q", "=", "1"}], ",", 
                    RowBox[{"q", "<", 
                    RowBox[{"kol", "+", "1"}]}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Sign", "[", 
                    RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"hf", "[", 
                    RowBox[{"dt", "*", 
                    RowBox[{"(", 
                    RowBox[{"q", "-", "1"}], ")"}]}], "]"}], "-", "Ust"}], 
                    "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", 
                    RowBox[{"Sign", "[", 
                    RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"hf", "[", 
                    RowBox[{"dt", "*", 
                    RowBox[{"(", "q", ")"}]}], "]"}], "-", "Ust"}], "]"}], 
                    "-", "0.05"}], "]"}]}], ",", 
                    RowBox[{"Treg", "=", 
                    RowBox[{"dt", "*", 
                    RowBox[{"(", 
                    RowBox[{"q", "-", "0.5"}], ")"}]}]}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"hmax", "<", 
                    RowBox[{"hf", "[", 
                    RowBox[{"dt", "*", "q"}], "]"}]}], ",", 
                    RowBox[{"hmax", "=", 
                    RowBox[{"hf", "[", 
                    RowBox[{"dt", "*", "q"}], "]"}]}]}], "]"}]}], "}"}], ";", 
                    RowBox[{"q", "++"}]}]}], "]"}]}], 
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "\:0427\:0438\:0441\:043b\:0435\:043d\:043d\:043e\:0435", 
                    " ", "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", 
                    "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", 
                    " ", 
                    RowBox[{"h", "(", "t", ")"}]}], "=", 
                    RowBox[{
                    RowBox[{"0.95", " ", "\:0438", " ", 
                    RowBox[{"h", "(", "t", ")"}]}], "=", "1.05"}]}], ",", " ", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "\:043e\:0431\:044a\:0435\:0434\:0438\:043d\:0435\:043d\
\:043d\:044b\:0445", " ", "\:0432", " ", "\:043e\:0434\:043d\:043e"}], " ", 
                    "|", 
                    RowBox[{
                    RowBox[{"h", "(", "t", ")"}], "-", "1"}], "|", 
                    RowBox[{"-", "0.05"}]}], "=", 
                    RowBox[{
                    "0", " ", "\:0438", " ", 
                    "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\:043d\
\:0438\:0435", " ", 
                    "\:043c\:0430\:043a\:0441\:0438\:043c\:0443\:043c\:0430"}]\
}]}], "*)"}], "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"sigma", "=", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"100", "*", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"hmax", "-", "Ust"}], ")"}], "/", "Ust"}]}], ",", 
                    "0.01"}], "]"}]}], ";", 
                    RowBox[{"(*", 
                    RowBox[{
                    "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
                    "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\
\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f"}], "*)"}]}]}],
                    TraditionalForm], 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Treg", ">", "5"}], "||", " ", 
                    RowBox[{"sigma", ">", "5"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Print", "[", 
                    RowBox[{
                    "\"\<\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\
\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \
\:04411=\>\"", ",", "c1c", ",", "\"\<, c2=\>\"", ",", "c2c", ",", 
                    "\"\<, c3=\>\"", ",", "c3c", ",", "\"\<, c4=\>\"", ",", 
                    "c4c", ",", "\"\<, c5=\>\"", ",", "c5c", ",", 
                    
                    "\"\< \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\
\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\
\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\
\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\
\:0441\:0443, \:0442.\:043a. Treg=\>\"", ",", "Treg", ",", 
                    "\"\< c, Sigma=\>\"", ",", "sigma", ",", "\"\<%.\>\""}], 
                    "]"}], ",", 
                    RowBox[{"ocen", "++"}], ",", 
                    RowBox[{"VTsr", "=", 
                    RowBox[{"Append", "[", 
                    RowBox[{"VTsr", ",", "Treg"}], "]"}]}], ",", 
                    RowBox[{"VSsr", "=", 
                    RowBox[{"Append", "[", 
                    RowBox[{"VSsr", ",", "sigma"}], "]"}]}]}], "}"}]}], 
                    "]"}]}]}], "}"}], ";", " ", 
                    RowBox[{"(*", 
                    RowBox[{
                    "\:0412\:044b\:0432\:043e\:0434", " ", 
                    "\:0442\:0435\:043a\:0443\:0449\:0435\:0433\:043e", " ", 
                    "\:0440\:0435\:0437\:0443\:043b\:044c\:0442\:0430\:0442\
\:0430", " ", 
                    "\:043c\:043e\:0434\:0435\:043b\:0438\:0440\:043e\:0432\
\:0430\:043d\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", 
                    RowBox[{"m", "++"}]}]}], "]"}], "}"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"l", "++"}]}]}], "]"}], "}"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"k", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", 
        RowBox[{"j", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", 
    RowBox[{"i", "++"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ver", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ocen", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Soch", "-", "1"}], ")"}], "^", "5"}], ")"}]}], ")"}], "*", 
     "100."}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
     "\:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\:0438", 
     " ", "\:0442\:043e\:0433\:043e"}], ",", " ", 
    RowBox[{
    "\:0447\:0442\:043e", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", 
     " ", "\:043d\:0435", " ", 
     "\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\
\:0442", " ", "\:0437\:0430\:0434\:0430\:043d\:043d\:044b\:043c", " ", 
     "\:0445\:0430\:0440\:0430\:043a\:0442\:0435\:0440\:0438\:0441\:0442\:0438\
\:043a\:0430\:043c", " ", 
     "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e", 
     " ", "\:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0430"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tregsr", "=", 
    RowBox[{"Mean", "[", "VTsr", "]"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
    "\:043d\:0430\:0438\:0431\:043e\:043b\:0435\:0435", " ", 
    "\:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0433\:043e", " ", 
    "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", 
    "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\
\:044f"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sigmasr", "=", 
    RowBox[{"Mean", "[", "VSsr", "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
    "\:043d\:0430\:0438\:0431\:043e\:043b\:0435\:0435", " ", 
    "\:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0433\:043e", " ", 
    "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\
\:0432\:0430\:043d\:0438\:044f"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<\:0412\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\:044c \
\:0442\:043e\:0433\:043e, \:0447\:0442\:043e \:0441\:0438\:0441\:0442\:0435\
\:043c\:0430 \:0441\:0430\:043c\:043e\:043b\:0435\:0442 \[Dash] \:0440\:0430\
\:0441\:0441\:0447\:0438\:0442\:0430\:043d\:043d\:044b\:0439 \:0430\:0432\
\:0442\:043e\:043f\:0438\:043b\:043e\:0442 \:043d\:0430 \:0434\:0430\:043d\
\:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\
\:0435\:0442\:0430 \:043d\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\:0434\
\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0442\:044c \:0437\
\:0430\:0434\:0430\:043d\:043d\:044b\:043c \:0445\:0430\:0440\:0430\:043a\
\:0442\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0430\:043c \:043f\:0435\
\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e \:043f\:0440\:043e\
\:0446\:0435\:0441\:0441\:0430 \:0440\:0430\:0432\:043d\:0430 \>\"", ",", 
   "Ver", ",", "\"\<%.\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"Ver", ">", "0"}], ",", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<\:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:043d\:0430\:0438\:0431\
\:043e\:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\
\:0435 \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f \[Dash] \>\"", ",", "Tregsr", ",", 
     "\"\<\:0441, \:0430 \:043d\:0430\:0438\:0431\:043e\:043b\:0435\:0435 \
\:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \:043f\:0435\:0440\
\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\
\:0435 - \>\"", ",", "sigmasr", ",", 
     "\"\<%. \:0414\:043b\:044f \:0440\:0435\:0448\:0435\:043d\:0438\:044f \
\:044d\:0442\:043e\:0439 \:043f\:0440\:043e\:0431\:043b\:0435\:043c\:044b \
\:0441\:043b\:0435\:0434\:0443\:0435\:0442 \:0443\:043c\:0435\:043d\:044c\
\:0448\:0438\:0442\:044c \:0447\:0438\:0441\:043b\:043e nu(\:043f\:0435\:0440\
\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435 \:0447\:0438\:0441\
\:043b\:043e \:0410\:041f \:043f\:043e \:0441\:0438\:0433\:043d\:0430\:043b\
\:0443 \:0438\:043d\:0442\:0435\:0433\:0440\:0430\:043b\:0430 \:0443\:0433\
\:043b\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\
\:043e \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\:044c \:0447\:0438\
\:0441\:043b\:043e iv(\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\
\:043d\:043e\:0435 \:0447\:0438\:0441\:043b\:043e \:0410\:041f \:043f\:043e \
\:0441\:0438\:0433\:043d\:0430\:043b\:0443 \:0443\:0433\:043b\:0430 \:0442\
\:0430\:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\:043e \:0443\:043c\
\:0435\:043d\:044c\:0448\:0430\:0442\:044c nu \:0438 \:0443\:0432\:0435\:043b\
\:0438\:0447\:0438\:0432\:0430\:0442\:044c iv \:043e\:0434\:043d\:043e\:0432\
\:0440\:0435\:043c\:0435\:043d\:043d\:043e, \:043d\:043e \:043d\:0430 \:043c\
\:0435\:043d\:044c\:0448\:0438\:0435 \:0432\:0435\:043b\:0438\:0447\:0438\
\:043d\:044b, \:0447\:0435\:043c \:0432 \:043f\:0435\:0440\:0432\:044b\:0445 \
\:0434\:0432\:0443\:0445 \:0441\:043b\:0443\:0447\:0430\:044f\:0445, \:0442.\
\:0435. \:0442\:0430\:043a\:0438\:043c \:043e\:0431\:0440\:0430\:0437\:043e\
\:043c \:0441\:0434\:0432\:043d\:0443\:0442\:044c Tnu \:0435\:0449\:0451 \
\:0434\:0430\:043b\:044c\:0448\:0435 \:043e\:0442 Tv - \:0443\:0432\:0435\
\:043b\:0438\:0447\:0438\:0442\:044c Tnu.\>\""}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5010072301142945`*^9, 3.5010072306113234`*^9}, {
   3.5010074889631*^9, 3.5010076004494762`*^9}, 3.5010077512611027`*^9, {
   3.501008033460243*^9, 3.5010082920950365`*^9}, {3.5010083832402496`*^9, 
   3.5010084014522915`*^9}, {3.501009006169879*^9, 3.501009029647222*^9}, {
   3.5011577968710394`*^9, 3.501157800621254*^9}, {3.501157873949448*^9, 
   3.501157887253209*^9}, {3.5011579298636465`*^9, 3.501157967374792*^9}, {
   3.5011580402249584`*^9, 3.501158080707274*^9}, {3.5011582846639395`*^9, 
   3.5011584570968027`*^9}, {3.5011595037356663`*^9, 
   3.5011596326970425`*^9}, {3.5011596964906917`*^9, 
   3.5011597011399574`*^9}, {3.501159797716481*^9, 3.5011598220748744`*^9}, {
   3.501160050886962*^9, 3.501160057341331*^9}, {3.501160099237727*^9, 
   3.5011601286114073`*^9}, {3.5011607644717765`*^9, 
   3.5011607682069902`*^9}, {3.501162156255382*^9, 3.5011621694511366`*^9}, {
   3.501162732525343*^9, 3.5011628245536065`*^9}, {3.501163483790313*^9, 
   3.501163547274944*^9}, {3.5011637074361043`*^9, 3.5011638203615637`*^9}, {
   3.501163862892996*^9, 3.501163864510089*^9}, {3.501163976892516*^9, 
   3.501163986705078*^9}, {3.501164175198859*^9, 3.501164179116083*^9}, {
   3.501167057329707*^9, 3.501167058846794*^9}, {3.501169440624024*^9, 
   3.5011695887504964`*^9}, {3.5011699904544725`*^9, 3.501169994382697*^9}, {
   3.501170346088814*^9, 3.501170358048498*^9}, {3.5011711894400506`*^9, 
   3.501171256004858*^9}, {3.501171289701785*^9, 3.501171294595065*^9}, 
   3.501171382010065*^9, {3.501171427408662*^9, 3.5011715043810644`*^9}, 
   3.501171702679406*^9, {3.5011741459361525`*^9, 3.5011742599996767`*^9}, {
   3.501176032907081*^9, 3.5011761023280516`*^9}, {3.5011768909481583`*^9, 
   3.5011769277892656`*^9}, {3.5011769960971727`*^9, 
   3.5011771925574093`*^9}, {3.5015624674139495`*^9, 
   3.5015624754011636`*^9}, {3.5015625915901675`*^9, 
   3.5015626616966906`*^9}, {3.501562761505666*^9, 3.501562796153327*^9}, {
   3.501562876003067*^9, 3.5015629977488804`*^9}, {3.5015630439249616`*^9, 
   3.5015633006546125`*^9}, {3.5015633422486854`*^9, 3.501563624390781*^9}, {
   3.5016778796121006`*^9, 3.501677890329714*^9}, {3.512812944503831*^9, 
   3.5128129546364107`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.27`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.8125`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.18`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.27, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.8125, 
   " c, Sigma=", 5.18, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.50167886863467*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.3`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.8125`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.18`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\
\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\
\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\
\:043a. Treg=", 8.8125, " c, Sigma=", 5.18, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.501678869187701*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.33`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.8175`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.19`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.33, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.8175, 
   " c, Sigma=", 5.19, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016788697487335`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.27`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.5475`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.03`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.27, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.5475, 
   " c, Sigma=", 5.03, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.501678870319766*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.3`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.5575`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.04`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\
\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\
\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\
\:043a. Treg=", 7.5575, " c, Sigma=", 5.04, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.501678870898799*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.33`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.5675`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.04`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.33, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.5675, 
   " c, Sigma=", 5.04, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016788714528313`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.27`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.9125`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.21`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.27, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.9125, 
   " c, Sigma=", 5.21, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.501678913197219*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.3`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.9125`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.21`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\
\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\
\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\
\:043a. Treg=", 8.9125, " c, Sigma=", 5.21, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.50167891375025*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.33`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.9125`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.21`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.33, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.9125, 
   " c, Sigma=", 5.21, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.501678914304282*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.27`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.7225`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", 
   "5.0600000000000005`", "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.27, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.7225, 
   " c, Sigma=", 5.0600000000000005`, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789148543134`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.3`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.7275`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", 
   "5.0600000000000005`", "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\
\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\
\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\
\:043a. Treg=", 7.7275, " c, Sigma=", 5.0600000000000005`, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789154043446`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.33`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.7375`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", 
   "5.0600000000000005`", "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.33, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.7375, 
   " c, Sigma=", 5.0600000000000005`, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789159583764`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.27`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "9.0075`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.23`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.27, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 9.0075, 
   " c, Sigma=", 5.23, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.50167896042492*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.3`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "9.0075`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.23`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\
\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\
\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\
\:043a. Treg=", 9.0075, " c, Sigma=", 5.23, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789609909525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.33`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "9.0075`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.23`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 
   0.33, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 9.0075, 
   " c, Sigma=", 5.23, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789615519843`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.27`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", 
   "7.8725000000000005`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", 
   "\[InvisibleSpace]", "5.08`", "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.27, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 
   7.8725000000000005`, " c, Sigma=", 5.08, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789621120167`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.3`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.8775`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.08`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\
\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\
\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\
\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\
\:043a. Treg=", 7.8775, " c, Sigma=", 5.08, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789626770487`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\
\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", 
   "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", 
   "\[InvisibleSpace]", "12.100000000000001`", 
   "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", 
   "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", 
   "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", 
   "\[InvisibleSpace]", "0.33`", 
   "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\
\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\
\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\
\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\
\:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.8825`",
    "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.09`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\
\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 
   12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 
   0.33, " \:043d\:0435 \
\:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\
 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\
\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.8825, 
   " c, Sigma=", 5.09, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.501678963240081*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0412\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\
\:044c \:0442\:043e\:0433\:043e, \:0447\:0442\:043e \:0441\:0438\:0441\:0442\
\:0435\:043c\:0430 \:0441\:0430\:043c\:043e\:043b\:0435\:0442 \[Dash] \:0440\
\:0430\:0441\:0441\:0447\:0438\:0442\:0430\:043d\:043d\:044b\:0439 \:0430\
\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442 \:043d\:0430 \:0434\:0430\
\:043d\:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\
\:043b\:0435\:0442\:0430 \:043d\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\
\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0442\:044c \
\:0437\:0430\:0434\:0430\:043d\:043d\:044b\:043c \:0445\:0430\:0440\:0430\
\:043a\:0442\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0430\:043c \:043f\
\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e \:043f\:0440\
\:043e\:0446\:0435\:0441\:0441\:0430 \:0440\:0430\:0432\:043d\:0430 \"\>", 
   "\[InvisibleSpace]", "7.4074074074074066`", 
   "\[InvisibleSpace]", "\<\"%.\"\>"}],
  SequenceForm[
  "\:0412\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\:044c \:0442\
\:043e\:0433\:043e, \:0447\:0442\:043e \:0441\:0438\:0441\:0442\:0435\:043c\
\:0430 \:0441\:0430\:043c\:043e\:043b\:0435\:0442 \[Dash] \:0440\:0430\:0441\
\:0441\:0447\:0438\:0442\:0430\:043d\:043d\:044b\:0439 \:0430\:0432\:0442\
\:043e\:043f\:0438\:043b\:043e\:0442 \:043d\:0430 \:0434\:0430\:043d\:043d\
\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\:0435\
\:0442\:0430 \:043d\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\:0434\:043e\
\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0442\:044c \:0437\:0430\
\:0434\:0430\:043d\:043d\:044b\:043c \:0445\:0430\:0440\:0430\:043a\:0442\
\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0430\:043c \:043f\:0435\:0440\
\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e \:043f\:0440\:043e\:0446\
\:0435\:0441\:0441\:0430 \:0440\:0430\:0432\:043d\:0430 ", 
   7.4074074074074066`, "%."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.501678974746739*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:043d\:0430\:0438\
\:0431\:043e\:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\
\:043e\:0435 \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\
\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f \[Dash] \"\>", 
   "\[InvisibleSpace]", "8.316388888888888`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:0430 \:043d\:0430\:0438\:0431\:043e\
\:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \
\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\
\:0430\:043d\:0438\:0435 - \"\>", "\[InvisibleSpace]", "5.133888888888889`", 
   "\[InvisibleSpace]", "\<\"%. \:0414\:043b\:044f \:0440\:0435\:0448\:0435\
\:043d\:0438\:044f \:044d\:0442\:043e\:0439 \:043f\:0440\:043e\:0431\:043b\
\:0435\:043c\:044b \:0441\:043b\:0435\:0434\:0443\:0435\:0442 \:0443\:043c\
\:0435\:043d\:044c\:0448\:0438\:0442\:044c \:0447\:0438\:0441\:043b\:043e nu(\
\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435 \
\:0447\:0438\:0441\:043b\:043e \:0410\:041f \:043f\:043e \:0441\:0438\:0433\
\:043d\:0430\:043b\:0443 \:0438\:043d\:0442\:0435\:0433\:0440\:0430\:043b\
\:0430 \:0443\:0433\:043b\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430), \
\:043b\:0438\:0431\:043e \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\
\:044c \:0447\:0438\:0441\:043b\:043e iv(\:043f\:0435\:0440\:0435\:0434\:0430\
\:0442\:043e\:0447\:043d\:043e\:0435 \:0447\:0438\:0441\:043b\:043e \:0410\
\:041f \:043f\:043e \:0441\:0438\:0433\:043d\:0430\:043b\:0443 \:0443\:0433\
\:043b\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\
\:043e \:0443\:043c\:0435\:043d\:044c\:0448\:0430\:0442\:044c nu \:0438 \
\:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0432\:0430\:0442\:044c iv \:043e\
\:0434\:043d\:043e\:0432\:0440\:0435\:043c\:0435\:043d\:043d\:043e, \:043d\
\:043e \:043d\:0430 \:043c\:0435\:043d\:044c\:0448\:0438\:0435 \:0432\:0435\
\:043b\:0438\:0447\:0438\:043d\:044b, \:0447\:0435\:043c \:0432 \:043f\:0435\
\:0440\:0432\:044b\:0445 \:0434\:0432\:0443\:0445 \:0441\:043b\:0443\:0447\
\:0430\:044f\:0445, \:0442.\:0435. \:0442\:0430\:043a\:0438\:043c \
\:043e\:0431\:0440\:0430\:0437\:043e\:043c \:0441\:0434\:0432\:043d\:0443\
\:0442\:044c Tnu \:0435\:0449\:0451 \:0434\:0430\:043b\:044c\:0448\:0435 \
\:043e\:0442 Tv - \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\:044c Tnu.\
\"\>"}],
  SequenceForm[
  "\:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:043d\:0430\:0438\:0431\:043e\
\:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \
\:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:044f \[Dash] ", 8.316388888888888, 
   "\:0441, \:0430 \:043d\:0430\:0438\:0431\:043e\:043b\:0435\:0435 \:0432\
\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \:043f\:0435\:0440\:0435\
\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435\
 - ", 5.133888888888889, 
   "%. \:0414\:043b\:044f \:0440\:0435\:0448\:0435\:043d\:0438\:044f \:044d\
\:0442\:043e\:0439 \:043f\:0440\:043e\:0431\:043b\:0435\:043c\:044b \:0441\
\:043b\:0435\:0434\:0443\:0435\:0442 \:0443\:043c\:0435\:043d\:044c\:0448\
\:0438\:0442\:044c \:0447\:0438\:0441\:043b\:043e nu(\:043f\:0435\:0440\:0435\
\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435 \:0447\:0438\:0441\:043b\
\:043e \:0410\:041f \:043f\:043e \:0441\:0438\:0433\:043d\:0430\:043b\:0443 \
\:0438\:043d\:0442\:0435\:0433\:0440\:0430\:043b\:0430 \:0443\:0433\:043b\
\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\:043e \
\:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\:044c \:0447\:0438\:0441\
\:043b\:043e iv(\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\
\:043e\:0435 \:0447\:0438\:0441\:043b\:043e \:0410\:041f \:043f\:043e \:0441\
\:0438\:0433\:043d\:0430\:043b\:0443 \:0443\:0433\:043b\:0430 \:0442\:0430\
\:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\:043e \:0443\:043c\:0435\
\:043d\:044c\:0448\:0430\:0442\:044c nu \:0438 \:0443\:0432\:0435\:043b\:0438\
\:0447\:0438\:0432\:0430\:0442\:044c iv \:043e\:0434\:043d\:043e\:0432\:0440\
\:0435\:043c\:0435\:043d\:043d\:043e, \:043d\:043e \:043d\:0430 \:043c\:0435\
\:043d\:044c\:0448\:0438\:0435 \:0432\:0435\:043b\:0438\:0447\:0438\:043d\
\:044b, \:0447\:0435\:043c \:0432 \:043f\:0435\:0440\:0432\:044b\:0445 \:0434\
\:0432\:0443\:0445 \:0441\:043b\:0443\:0447\:0430\:044f\:0445, \:0442.\:0435. \
\:0442\:0430\:043a\:0438\:043c \:043e\:0431\:0440\:0430\:0437\:043e\:043c \
\:0441\:0434\:0432\:043d\:0443\:0442\:044c Tnu \:0435\:0449\:0451 \
\:0434\:0430\:043b\:044c\:0448\:0435 \:043e\:0442 Tv - \:0443\:0432\:0435\
\:043b\:0438\:0447\:0438\:0442\:044c Tnu."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 
  3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9, 
  3.501354793246105*^9, 3.5016789747747407`*^9}]
}, Open  ]]
}, Open  ]],

Cell[TextData[StyleBox["\:0413\:0440\:0430\:0444\:0438\:043a \:0437\:0430\
\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438 \:0432\:0435\:0440\
\:043e\:044f\:0442\:043d\:043e\:0441\:0442\:0438 \:0442\:043e\:0433\:043e, \
\:0447\:0442\:043e \:0441\:0438\:0441\:0442\:0435\:043c\:0430 \:0441\:0430\
\:043c\:043e\:043b\:0435\:0442 \[Dash] \:0440\:0430\:0441\:0441\:0447\:0438\
\:0442\:0430\:043d\:043d\:044b\:0439 \:0430\:0432\:0442\:043e\:043f\:0438\
\:043b\:043e\:0442 \:043d\:0430 \:0434\:0430\:043d\:043d\:043e\:043c \:0440\
\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\:0435\:0442\:0430 \:043d\
\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\:0434\:043e\:0432\:043b\:0435\
\:0442\:0432\:043e\:0440\:044f\:0442\:044c \:0437\:0430\:0434\:0430\:043d\
\:043d\:044b\:043c \:0445\:0430\:0440\:0430\:043a\:0442\:0435\:0440\:0438\
\:0441\:0442\:0438\:043a\:0430\:043c \:043f\:0435\:0440\:0435\:0445\:043e\
\:0434\:043d\:043e\:0433\:043e \:043f\:0440\:043e\:0446\:0435\:0441\:0441\
\:0430 \:043e\:0442 \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\
\:0430 \:0443\:0440\:043e\:0432\:043d\:0435\:0439 \:043f\:0440\:0438 \:043f\
\:043e\:043b\:043d\:043e\:043c \:0444\:0430\:043a\:0442\:043e\:0440\:043d\
\:043e\:043c \:044d\:043a\:0441\:043f\:0435\:0440\:0438\:043c\:0435\:043d\
\:0442\:0435.",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.5015636572132387`*^9, 3.50156365793084*^9}, {
  3.501563725775359*^9, 3.50156382888034*^9}, {3.5015638804228306`*^9, 
  3.5015639220125036`*^9}, {3.5016765863411303`*^9, 3.5016765974697666`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mver", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "7.41"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "5.12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"7", ",", "4.14"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.501267440643841*^9, 3.501267529640931*^9}, {
  3.5012686667519703`*^9, 3.5012686685350723`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "7.41`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5.12`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4.14`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.501267532079071*^9, 3.5012686693281174`*^9, 
  3.501306122345969*^9, 3.5013549029343786`*^9, 3.5015290443243327`*^9, 
  3.501678974792742*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"Mver", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "10"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.501267572324373*^9, 3.5012676011170197`*^9}, 
   3.5012678045516553`*^9, {3.501267926722643*^9, 3.5012679304308553`*^9}, {
   3.5012679623746824`*^9, 3.501267985918029*^9}, {3.5012682701052837`*^9, 
   3.501268273068453*^9}, {3.501268677776601*^9, 3.501268727703457*^9}, {
   3.501269419392019*^9, 3.501269422945222*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[{{3., 7.41}, {5., 5.12}, {7., 4.14}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{3., 0},
  PlotRange->{{3., 7.}, {0, 10}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.501267594018614*^9, 3.501267601711054*^9}, 
   3.5012678059587355`*^9, 3.501267931319906*^9, {3.501267972407256*^9, 
   3.501267986695073*^9}, 3.501268274044509*^9, 3.501268700226885*^9, 
   3.5012694241792927`*^9, 3.501306122485977*^9, 3.501354902985382*^9, 
   3.501529046287445*^9, 3.5016789748777466`*^9}]
}, Open  ]]
},
WindowSize->{1346, 633},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 3226, 55, 121, "Text"],
Cell[3774, 77, 337, 5, 29, "Text"],
Cell[4114, 84, 703, 24, 126, "Input"],
Cell[4820, 110, 339, 5, 29, "Text"],
Cell[CellGroupData[{
Cell[5184, 119, 687, 15, 30, "Input"],
Cell[5874, 136, 402, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6313, 146, 627, 13, 30, "Input"],
Cell[6943, 161, 404, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7384, 171, 479, 11, 30, "Input"],
Cell[7866, 184, 396, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8299, 194, 217, 8, 30, "Input"],
Cell[8519, 204, 397, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8953, 214, 199, 7, 30, "Input"],
Cell[9155, 223, 421, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9613, 234, 421, 14, 30, "Input"],
Cell[10037, 250, 414, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10488, 261, 997, 25, 30, "Input"],
Cell[11488, 288, 399, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11924, 298, 186, 6, 30, "Input"],
Cell[12113, 306, 394, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12544, 316, 194, 6, 30, "Input"],
Cell[12741, 324, 396, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13174, 334, 753, 17, 30, "Input"],
Cell[13930, 353, 402, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14369, 363, 929, 20, 30, "Input"],
Cell[15301, 385, 399, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15737, 395, 106, 3, 30, "Input"],
Cell[15846, 400, 399, 5, 30, "Output"]
}, Open  ]],
Cell[16260, 408, 549, 7, 29, "Text"],
Cell[CellGroupData[{
Cell[16834, 419, 1261, 35, 30, "Input"],
Cell[18098, 456, 1469, 36, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19604, 497, 1729, 42, 50, "Input"],
Cell[21336, 541, 1461, 36, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22834, 582, 843, 19, 30, "Input"],
Cell[23680, 603, 1005, 23, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24722, 631, 801, 18, 30, "Input"],
Cell[25526, 651, 1539, 36, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27102, 692, 140, 4, 30, "Input"],
Cell[27245, 698, 1597, 37, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28879, 740, 494, 11, 30, "Input"],
Cell[29376, 753, 6773, 116, 247, "Output"]
}, Open  ]],
Cell[36164, 872, 587, 8, 29, "Text"],
Cell[36754, 882, 1402, 31, 50, "Input"],
Cell[CellGroupData[{
Cell[38181, 917, 5157, 124, 145, "Input"],
Cell[CellGroupData[{
Cell[43363, 1045, 568, 10, 23, "Print"],
Cell[43934, 1057, 554, 10, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44537, 1073, 1671, 34, 52, "Input"],
Cell[46211, 1109, 410, 6, 30, "Output"]
}, Open  ]],
Cell[46636, 1118, 1866, 31, 71, "Text"],
Cell[CellGroupData[{
Cell[48527, 1153, 27942, 564, 832, "Input"],
Cell[CellGroupData[{
Cell[76494, 1721, 1871, 30, 23, "Print"],
Cell[78368, 1753, 1866, 29, 23, "Print"],
Cell[80237, 1784, 1874, 30, 23, "Print"],
Cell[82114, 1816, 1870, 30, 23, "Print"],
Cell[83987, 1848, 1864, 29, 23, "Print"],
Cell[85854, 1879, 1872, 30, 23, "Print"],
Cell[87729, 1911, 1870, 30, 23, "Print"],
Cell[89602, 1943, 1863, 29, 23, "Print"],
Cell[91468, 1974, 1870, 30, 23, "Print"],
Cell[93341, 2006, 1899, 30, 23, "Print"],
Cell[95243, 2038, 1893, 29, 23, "Print"],
Cell[97139, 2069, 1899, 30, 23, "Print"],
Cell[99041, 2101, 1871, 30, 23, "Print"],
Cell[100915, 2133, 1868, 29, 23, "Print"],
Cell[102786, 2164, 1874, 30, 23, "Print"],
Cell[104663, 2196, 1897, 30, 23, "Print"],
Cell[106563, 2228, 1866, 29, 23, "Print"],
Cell[108432, 2259, 1870, 30, 23, "Print"],
Cell[110305, 2291, 2196, 33, 23, "Print"],
Cell[112504, 2326, 4972, 70, 81, "Print"]
}, Open  ]]
}, Open  ]],
Cell[117503, 2400, 1551, 21, 47, "Text"],
Cell[CellGroupData[{
Cell[119079, 2425, 390, 11, 31, "Input"],
Cell[119472, 2438, 406, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119915, 2454, 525, 10, 31, "Input"],
Cell[120443, 2466, 665, 14, 255, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)